SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO


CREATE Procedure [dbo].[SP_TTPROC_INVE_D01]
/*---------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                  --*/
/*---Cliente              : OFISIS S.A                   --*/
/*---Sistema              : Interfase                    --*/
/*---M¢dulo               : Empresa                      --*/
/*---Programa             : Interface Contable Ventas    --*/
/*---Script               : TTPROC_INTE                  --*/
/*---Nombre SP            : SP_TTPROC_INVE_D01           --*/
/*---Desarrollado por     : Gianmarco Lindo Huertas      --*/
/*---Fecha Creaci¢n       : 11/10/2001                   --*/
/*---Base Datos           : Microsoft Sql Server         --*/
/*---Versi¢n              : 8.0                          --*/
/*---Invoca a SP          :                              --*/
/*---------------------------------------------------------*/
/*---------------------------------------------------------*/
/*---Modificado 1 por     : Julio Diestra Leiva          --*/
/*---Fecha Modificaci¢n   : 17/08/2004                   --*/ 
/*---Detalle Modificaci¢n : Version 5                    --*/
/*---------------------------------------------------------*/
/*---------------------------------------------------------*/
/*---Comentarios                                         --*/
/*---                                                    --*/
/*---                                                    --*/
/*---------------------------------------------------------*/
/*---------------------------------------------------------*/
/*---Drop Proc SP_TTPROC_INVE_D01                        --*/
/*---Grant all on SP_TTPROC_INVE_D01 to public           --*/ 
/*---SP_TTPROC_INVE_D01 '01' , 1, 1, '03/01/1999',       --*/
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/
/*---------------------------------------------------------*/
@ISCO_EMPR		TD_VC_002,	--- C¢digo de la Empresa                      
@INNU_PROC		TD_IN_001	--- Numero de Proceso de Interfase            

As
Begin Tran SP_TTPROC_INVE_D01
  -- Elimina Procesos Anteriores 
  Delete [OFIINTE].[dbo].[TTINTE_CNDE] 
  Where CO_EMPR = @ISCO_EMPR And NU_PROC = @INNU_PROC

  If @@error != 0
  Begin
     Rollback Tran SP_TTPROC_INVE_D01
     Return
  End
  -- Elimina Procesos Anteriores --
  Delete [OFIINTE].[dbo].[TTINTE_CNTB] 
  Where CO_EMPR = @ISCO_EMPR And NU_PROC = @INNU_PROC

  If @@error != 0
  Begin
     Rollback Tran SP_TTPROC_INVE_D01
     Return
  End
  -- Elimina Procesos Anteriores --
  Delete [OFIINTE].[dbo].[TTINTE_REPO] 
  Where CO_EMPR = @ISCO_EMPR And NU_PROC = @INNU_PROC

  If @@error != 0
  Begin
     Rollback Tran SP_TTPROC_INVE_D01
     Return
  End

  -- Elimina Procesos Anteriores --
  Delete [OFIINTE].[dbo].[TTPROC_INTE] 
  Where CO_EMPR = @ISCO_EMPR And NU_PROC = @INNU_PROC

  If @@error != 0
  Begin
     Rollback Tran SP_TTPROC_INVE_D01
     Return
  End

  -- Elimina Procesos Anteriores --
  Delete [OFIINTE].[dbo].[TXMVTO_AJTE] 
  Where CO_EMPR = @ISCO_EMPR And NU_PROC = @INNU_PROC

  If @@error != 0
  Begin
     Rollback Tran SP_TTPROC_INVE_D01
     Return
  End

  -- Quita Flags a Documentos --
  Update TCDOCU_CLIE
     Set ST_INTE = 'N',
         NU_PROC = @INNU_PROC
   Where CO_EMPR  =  @ISCO_EMPR
     And NU_PROC = @INNU_PROC

  If @@error != 0
  Begin
     Rollback Tran SP_TTPROC_INVE_D01
     Return
  End

Commit 
Return 
/*------------------------------ Fin -------------------------------*/
-----------------------------------------------------------
-- Type: Stored Procedure
-- Name: SP_TTPROC_INVE_I01
-----------------------------------------------------------



GO
